home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
text
/
misc
/
ht.lha
/
hypertext
/
Dme
/
setup.edrc
< prev
Wrap
Text File
|
1990-12-23
|
2KB
|
62 lines
# The following macros are designed to be used from within DME when
# creating documents for HT. Their purpose is to make life a little
# easier and faster. Just source this file when you want to work on
# HT documents (and also make sure that REXX will be able to find the
# dme macros).
#
# I used "alt" based keymappings because I figured they wouldn't
# conflict with keymaps you already have.
# Feel free to change the keymappings as you see fit. I thought they
# made sense, maybe you don't.
#
# D.B.G. July 1990
# The "test macro". It will save the current filename, then call an
# Arexx macro to load this file directly into HT
#
map a-t (saveold rx1 test \$filename)
# for ease of typing, we'll add this too.
map c-t (a-t)
# These (tiny) macros are setup to insert the necessary text to turn
# on (and off) the specified attributes.
# Oh, BTW - all the backslashes *are* necessary ;-(
map a-b ( `\\\\BOLD ' )
map a-i ( `\\\\ITALIC ' )
map a-u ( `\\\\UNDERLINE ' )
# And the two biggie macros.... these handle creating a link in your
# document. Since DME doesn't do char based highlighting/blocking we
# have to do a Start link (a-s) to know exactly where to start the link
# and then the actual LINK macro which will call an Arexx macro to
# pop up a window which you use to specify your link. The Arexx macro
# then inserts the appropriate text into your document at the right spots.
#
# The first macro is used to define where to START the link,
# I have used text markers 8 and 9 pretty arbitrarily. Change them
# here and in link.dme if they conflict with what you use them for
map a-s (ping 8)
# and the second macro actually makes the call...
map a-l (ping 9 rx do_link)
# Here we add some menus to the window so that we can have some
# user-friendliness... (ackk, cough, gasp ! user-friendly, what a horrible
# word ;-)
#
# If you don't want this stuff, just comment it out - it doesn't do or
# add anything extra.
menuoff
menuadd HyperText `Bold on/off' (a-b)
menuadd HyperText `Italics on/off' (a-i)
menuadd HyperText `Underline on/off' (a-u)
menuadd HyperText () (null)
menuadd HyperText `Start Link' (a-s)
menuadd HyperText `Define Link' (a-l)
menuadd HyperText () (null)
menuadd HyperText `Test current Document' (a-t)
menuon